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“Tiree $Y reds - ROUTINES FOR MANIPULATING SYSSOUTPUT 
- IDEN v04-000' 


FRAAAAKHKHKSSHAAAAAA AEA AAAAAAARAAAAAAAAAAAAAAATAKERAAAAEAEAEAETEAAATAAeTE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

*@ 

*@ 

*@ 

*@ 

;® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
a 

* 
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® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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Peter George 08-Jan-1983 
ROUTINES FOR MANIPULATING SYSSOUTPUT 
MODIFIED BY: 
v03-004 PCG0004 Peter George 21-Aug-1983 
Manage concealed and terminal attributes using new 
logical name services. 


v03-003 PCG0003 Peter George 27-Jul-1983 
Fix data manipulation bugs. 


v03-002 PCG0002 Peter George 4 
Add support for image verification. 


v03-001 PCG0001 Peter George 13-Apr-1983 
Clear FABSB_SHR before opening SYSSOUTPUT. 
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: MACRO LIBRARY CALLS 
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TDEF 
SCL TNSGDEF 
$F ABDEF 
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yOe-000 pan et} 90:23:23 DCL. SRCJSYSOUTPUT .MAR; 1 ef 
58 SRABDEF ;DEFINE RAB OFFSETS 
LNMDEF [DEFINE LNM OFFSET 
60 NAMDEF “DEFINE NAM OFFSETS 
61 SPSLDEF !DEFINE PSL FIELDS 
$8 
64 : LOCAL DATA 
o2 3 
0000000 85 .PSECT DCLSZCODE,BYTE,RD.NOWRT 
68 INPUTNAR ;"INPUT® LOGICAL NAME TEXT 
54 55 50 4E 49 24 53 59 53 09 $ “ASCII <9>/SYS$INPUT/ : 
0 OUTFILE: ‘OUTPUT FILE DEFAULT NAME STRING 
53 49 4C 2€ 71 LASCII /.LIS/ : 
72 OUTPUTNAM: s OUTPUT’ LOGICAL NAME TEXT 
54 55 50 54 55 GF 26 53 59 53 0A “ASCII <10>/SYSSOUTPUT/ ; 
7% LNMSPROCESS: [PROCESS LOGICAL NAME TABLE 
75 SASCIC /LNMSPROCESS/ : 


nus & 


oo 
So 


Wwr*onwn 


2s Ss 
“NO 


: 


77 


OUTPUT 


4=SEP=1984 
-SBTTL OPEN NEW SYSSOUTPUT FILE 
DCLSOPEN_OUTPUT = OPEN NEW SYSSOUTPUT FILE 


THIS ROUTINE IS CALLED TO OPEN A NEW SYSSOUTPUT FILE AND TO INITIALIZE 
THE APPROPRIATE DATA STRUCTURES. 


INPUTS: 


DCL.SRCISYSOU 


R MANIPULATING SYSSOUTPUT 16-SEP=1984 90:25:15 YAX/VMS Macro 04-00 Page 3d 


T.MAR;1 


+ 


YSSOUTPUT EQUIVALENCE NAME 
IDF FRAME 

S WORK AREA 

OUTPUTS: 


RO = STATUS (NOT SIGNALED) 


DCLSOPEM_OUTPUT:: 
PUSHR #*M<R1,R2,R6,R7,RB,R9> 


MOVL PRC_L_IDFLNK(R11) ,R8 GET ADD 
TSTL R1 OUTPUT 


CURRENT IDF FRAME 
CIFIED? 
BNEQ 10$ ; BRANCH 


-— "DD 
wef 


: No output filespec is epee tt ted, prepapste the default output stream 


3; to the indirect frame. Leave PRC_L_INDOUTRAB as is. 
ASSUME IDF_W_OUTISI EQ IDF_W_OUTIFI+2 
MOVL 1DF-W-OUTIEI (RG) ,= :SAVE PREVIOUS INTERNAL FILE INDEX 
IDF “W-OUTIF I (R8) : 
MOVL = IDFL-OUTRABCTX(R6).- ‘SAME FOR RAB CONTEXT 
IDF “L~OUTRABCTX (RB) : 
MOVC #16 7IBF T OUTDVI(R6),- TSAVE PREVIOUS DEVICE NAME 
IDF _T_OOTBVI(R8) : 
CLRBIT IDF-V"OUTCCL,IDF_B_OUTFLAGS(R8) :CLEAR CONCEALED BIT 
BBC #NAMST_CNCL_DEV,= :1S DEVICE CONCEALED? 
NAMSL_FNB(R7) ,5$ F 
SETBIT JDF_VIOUTCCL , [DF _8_OUTFLAGS(R8) 7SET CONCEALED BIT IN IDF 
5$: Rw 0$ SSKIP PAST FILE CREATION 
: Qutput filespec is specified, create new output file. fill in IDF frame 
3: fields and PRC_L_INDOUTRAB. 
; Set up fields in the indirect FAB for the $CREATE. 
10$:  MOVL  PRC_L_INDFAB(R11).R9 7GET ADDRESS OF INDIRECT FAB 
MOVAB QuTFICE FABSL_DNA(R9) [SET ADDRESS OF DEF NAME STRING (.LI1 
MOVB #FABSM_PUT,FABSB_FAC(R9) 3SET FILE ACCESS TYPE 
MOVB 1, FABSB_FNS(R9) [SET SIZE OF FILENAME STRING 
MOVL  R2,FABSL-FNA(RO) [SET ADDRESS OF FILE NAME STRING 
MOVL #F ABSA, PP :FABSA_SQO,~ :SET FILE OPEN OPTIONS 
MOVB #FABSC. SEQ. FABSB_ORG(R9) [SET FILE ORGANIZATION TYPE | 
MOVB #FABSMPRN.FABSB-RAT (RO) ;SET RECORD ATTRIBUTE TYPE TO PRINT | 


SYSOUTPUT - R 
v0e-000 OPE 
1F Ad 0 
Tae 
02 A B4 
2 D 
FF t: 8 
65 58 E 
52 ui (9 «= 9E 
B4 
3C A2 dO 
40 50 €9 
18 AB. 6 9E 
20 AB «202 A B0 
18 A2 40 A900 
18 A dO 
24 AS 
06 FO 
02 A2 08 
22 A 02 A 80 
57 28 Ad = 0 
oc «€1 
04 34 A? 
14 A7_ 10 28 
28 AB 
02 Al Oe A BO 
FFIA 8 
03C6 8F 


ow 
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OUTINES FOR MANIPULATING SYSSOUTPUT 16-SEP-1984 00:23: AX/VMS Macro Vv04-00 Page 4 
N NEW SYS Ssour put rite pat et} 90:28:13 DCL. SRCJSYSOUTPUT.MAR; 1 . (2) 
77 VB #FABSC_VFC,FABSB_RFM(RO) sSET RECORD FORMAT TYPE-FIXED CONTRO. 
78 CLRB 3s FABSB_SHR(R9) CLE AR FILE SHARING OPTIONS 
4: CLRW = FABSW"IFI(R9) [CLEAR INTERNAL FIL 
MOVL R9,RO ZADDRESS OF FAB 
4 MOVL SASSUME CREATE WITH ERROR REPORTING 
7 BSBW Ds SREN, CREATE SCREATE NEW OUTPUT FILE 
A BLBC SIF LBC CREATION FAILURE 
D : 
8 D : The SCREATE was successful, now set up the RAB fields and try a SCONNECT. 
0 4 : be careful to restore 1DF.W_OUTIFI an nd IDF _L_OUTRABCTX if anything goes wrong. 
6 D MOVAB PRD_G -ALTOUTRAB(R9) ,R2 3GET ALTERNATE OUTPUT RAB ADDRESS 
09¢ CLRW RABSW $1(R2) [CLEAR INTERNAL STREAM INDEX 
9 MOVL L FAB FAB(R2) TLINK FAB TO RAB 
099 SCONNECT "aApe(R , :CONNECT TO OUTPUT 
Ong BLBC ~—— RO, 508 F tIF LBS CONNECT FAILURE 
ss 
Boag 3; Both the ®CREATE and SCONNECT succeeded. Fill in the IDF and RAB fields. 
a0A3 ; Set PRC_L_: WDOUTRAB. 
OA5 MOVAB <&2),PRC_L_INDOUTRAB(R11) ;SET ADDRESS OF OUTPUT R 
OA9 MOVW FABSW_IFI(R9),IDF_W_OUTIFI(R8) ;SAVE OUTPUT FILE INTERNAL INDEX 
OAE MOVL  FABSLDEV(R9), RABSL-CTX(R2) SAVE DEVICE p CHARACTERISTICS 
0B MOVL RABSL~CTX(R2), ; IN RAB AND IDF 
0086 IDF ‘ “QUTRABCTX(RB) 
08 INSV FABSA_CR,#RABSV_PPF_RAT,- SET v0. USE IMPLIED 
0088 PRABSS “PPF_RAT,RABSW 1S1(R2) : CR/LF FOR OUTPUT 
008 MOVW RABSW_TSI(R2),{DF_W_OUTISI(R8) COPY OUTPUT ISI TO IDF 


Get the device name. 


Propagate concealed attribute. 


MOVL _ FABSL_NAM(R9),R :GET ADDRESS OF INDIRECT NAM 
CLRBIT ! F_V-OUTCCL ip? -B_OUTFLAGS(R8) [CLEAR CONCEALED BIT IN iDF 

0c BBC ARSY_CNCL_bE 31S DEVICE CONCEALED? 

OCD : AMSL "ENBER?) $ 

0D0 SE ‘BIT IDF _VOUTCCL, [DF _68_OUTFLAGS(R8) ISET CONCEALED BIT IN IDF 

004 20$: MOVC #167NAMST DVI(R7J,= [SAVE DEVICE NAME 

0008 IDF /T  OUTBVI (RB) : 

3A 

o ; “edirect image verification if appropriate. 
ODA S0s: WOVE PRC_L_INDFAB(R11),R :GET ADDRESS OF INDIRECT FAB 
MOV) =: IDF ~W We INPLFI (RB) FABSW. IFICR1) GET INPUT IFI 

BSBw DCLSVERIFY_ IMAGE 3 


; Cleanup and exit. 


, STATUS NORMA 
408: POPR #*<R1,R2,R6,R7,RB,R9> 


a a a a a a ee eB ee ee Be a a dd 
50909 6969 6969 G9 09 GD 09 SIN ND DDD DD DDD TT TUT BB BS BS BE EWA 


SOO NA NE WR SOONG UNSW SO OEE NAME WIN OS OD NAME AR (OO ONAUES ARO OOO 


NRW HMMMMMNMNoO 
MNR—FVTOAOOOCOwn 


Soooooooo 


[RESTORE REGISTERS 
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S 
SYSSOUTPU 4=SEP=19 DCL.SRCJSYSOUTPUT .MAR; 1 
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co | 
FOR Pout Piteen SYSSOUTPUT 19-3Ee- 138t 90:29:13 pe Macro yO 00 Page By 


a } 1 ; Restore corrupted FAB ard RAB fields. 

Fo 6193 50$: MOVL PRC_L_INDFAB(R11),R9 ;GET ADDRESS OF INDIRECT FAB 

OF6 19% MOVW  IDF-WIOUTIFI(R8) ,FABSW_IFICR9) CLEAR INTERNAL FILE I 

OFB 195 MOVAB PRD-G-ALTOUTRAB(R ;GET ALTERNATE OUTPUT RAB ADDRESS 
100 196 nov }DF“WLOUTISI (RB) ,RABSU_1S1(R2) :CLEAR INTERNAL STREAM INDEX 


2983333 


99 «-SBTTL RESTORE OLD SYSSOUTPUT FILE 
it DCLSRESTORE_OUTPUT = RESTORE OLD SYSSOUTPUT FILE 


THIS ROUTINE IS CALLED TO CLOSE THE CURRENT SYSSOUTPUT FILE AND TO ip bd 
; yO eihlampatbetaet DATA STRUCTURES SO THAT THEY POINT TO THE OLD SYSSOUTPUT 


——_______—— 
7 
 SYSOUTPUT = ROUTINES FOR MANIPULATING SYSSOUTPUT 
Fig 44 I ING S$ $0u U 


at Sab 4 
RESTORE OLD SYSSOUTPUT FILE 


4-SEP=1984 


AX/VMS 
DCL.SR 58 


cro V04-00 


Page 
$ySouT PUT.MAR; 1 . (%) 


107 
107 
if 
107 508 ; 
107 4 
107 5; 
107 $ 3 
107 0 : INPUTS: 
107 8 ; 
107 209: R = ADDRESS OF OUTPUT FILE DATA 
107 10 : : ADDRE ESS OF CURRENT IDF FRAME | 
; 4 ; 3 Ri = ADDRESS. OF PROCESS WORK AREA 
107 i : OUTPUTS: | 
1 7 14 ° | 
107 15 ; RO-R1 ARE TRASHED 
et | 
$107 18 DCLSRESTORE_OUTPUT:: ;RESTORE SYSS$OUTPUT 
59 DD 0107 19 PUSAL ; 
59 1C AB DO 0199 p MOVL PRC_L_INDFAB(R11),R9 [GET ADDRESS OF SCRATCH FAB 
010D s 
010D g 3; Close current ee file if the current output file is different from 
3198 ¢ 3; the previous level and different from the process permanent output file. 
68 05 010D 6 TSTL DF L_LNK(R8) :DOES PREVIOUS LEVEL EXIST? 
08 13 O10F 7 BEQL 5 0, THEN SKIP NEXT TEST 
20 a8 BI git) a CMPW CDF _w -OUTIFI(RB) ,= ‘OutPur FILE CHANGED FROM 
0094 ¢8 114 9 IDF “W~OUTIFI+IDF_K_LENGTH(R8) ; PREVIOUS COMMAND LEVEL? | 
16 13 0117 0 BEQL «4108 . NO | 
20 AB «B19 1 5$: CMPW =—-« IDF_W_OUTIFI(R8),- [OUTPUT FILE DIFFERENT FROM 
0114 CB 011¢ : PRC“W-OUTIFI(R115 : PERMANENT PROCESS DEFINITION? 
O& 13 O11F BEQL 10$ : F NO 
02 a9 20 a8 B80 0121 4 IDF_W_OUTIFI(R8) ,FABSW_IFI(R9) RESTORE INTERNAL FILE INDEX 
91 6 § SCLOSE FAB=(R9) SCLOSE INDIRECT OUTPUT FILE | 
12F : 
12F 8 : Restore the IDF and the RAB. Use either PRC or some other IDF, as specified 
; : iB: : by the address in R2. 
50 18 AB vO O19F 5461 108: MovL PRC _L_INDOUTRAB(R?1) RO :GET POINTER TO INDIRECT OUTPUT RAB 
02 a0 O02 A 80 1 ; 4g MOVW OUT-WIOUTISI(R2) ,RABSW_ISI(RO) SAVE ISI 
04 A2 DO 01 4 MOVL  OUT“L“OUTRABCTX(Rz) ,- TSAVE CTX 
18 A 1 44 RABSL~CTX(RO) : 
13D 9.245 ASSUME OUT_W-OUTISI EQ OUT_W_OUTIFI+2 
13D 46 ASSUME OUT"L-OUTRABCTX EQ OUT_W OUTIFI+4 
20 a8 $2 7D 0130 24 mova = OUT ~W OUTIF (Re) IDF _WUOOTIFI(R8) ;SAVE IFI,I1S1,RABCTX 
F 88 141 248 PUSHR #*MZRO,R1,R2,R3,R4,R5> sSAVE VOLATILE REGISTERS 
08 A210 143 49 MOVC «#16, oUf_TOUfDvi (Rd) .- i SAVE DEVICE NAME 
28 a8 14 0 IDF T OOTBVI<R ) 
3F «6 BA 0149 1 PCPR #°MZRO,R1,R2,R3,R4,R5> RESTORE VOLATILE REGISTERS 
148 4 CLRBIT {DF _V OUTCCL.IDF_BOUTFLAGS(R8) :CLEAR CONCEALED BIT IN IDF 
00 €1 O14F BBC #ouT_9 OUTCCL,- :1S DEVICE CONCEALED? 
04 18 A2 151 4 OUT_B_OUTFLAGS(R2) ,208 
154 5 SETBIT IDF-VIOUTCCL, IDF _B_OUTFLAGS(R8) SET CONCEALED BIT IN IDF 


— 7 
SYSOUTPUT = ROUTINES FOR MANIPU ATING SYSSOUTPUT 16 S$ 4 AX/VMS © v04-00 Page 
WOeeb00 RESTORE OLD SYS$ SOUTP UT FL 4-5 Pao 99: a8 n DCL.SR 48 OUTPUT .MAR; 1 . (3) 
el f 
} 8 ; Redirect image verification if appropriate 
59 00 01 60 208: mov. Rd :GET ADDRESS OF FAB 
02 Al 04 AB 80 1 61 MOVW tof M INP IF RB), FABSW_IFI(R1) :GET INPUT IFI 
FESD" 18 6¢ BSBW © DCLSVERIFY_IMA : 
59 BEDO 016 64 POPL R9 ZRESTORE R9 
05 9166 65 RSB ; 
16 66 
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: OUTPUTS: 


ULAT ING SYS 
OR ‘INPUT 


«SBTTL CREATE LOGICAL NAMES FOR ‘INPUT* AND ‘OUTPUT’ 


s0uTPUT 1973 P=1984 90:29:13 ote: Macro v04-00 Page 8 


ND ‘OU P=1984 DCL. SRCIJSYSOUTPUT .MAR; 1 (4) 


NAMES FOR ‘INPU!' AND ‘OUTPUT’ 
L WAME FOR ‘OUTPUT* 


& 
AT 
E 


crm 


E LOGICAL NAMES FOR ‘INPUT’ AND ‘OUTPUT’ 
DEPTH. 


Rg = ADDRESS OF CURRENT INDIRECT FRAME 
R11 = ADDRESS OF PROCESS WORK AREA 


RO-R6 DESTROYED. 


DCLSCREATE_10:: 
MOUAB 1DF_T_INPDVI(R8) ,R2 3GET ADDRESS OF INPUT DEVICE IDENTIF 
BICwW #FABSA_PPF_IND,- :GET INTERNAL FILE ID FOR INPUT - | 
1DF_wW_INPIFI(RS),R3 SALWAYS CLEAR INDIRECT BIT IF SET 
MOVAB INPOTRAM,R5S ;GET ADDRESS OF INPUT LOGICAL NAME | 
TSTL PRC_L_INDEPTH(R11) TARE WE AT LEVEL 0? 
BNEQ 108 :NO, THEN SKIP 
BSBW DELETE [DELETE "INPUT® LOGICAL NAME | 
BRB DCLSCREATE_OUTPUT [CREATE ‘OUTPUT’ LOGICAL NAME 
10$:  MOVL = #LNMSM_TERMINAL,R6 ZASSUME NOT CONCEALED DEVICE 
BBC #IDF_V"INPCCL,- :SKIP IF NOT CONCEALED DEVICE 
IDF _6_GUTFLAGS(R8) ,20$ ; | 
SETBIT LNMSV~CONCEALED,R6 :SET ATTRIBUTES 
20$:  8SB3 CREATE TCREATE ‘INPUT’ LOGICAL NAME | 
DCLSCREATE_ OUTPUT: : | 
MOVAB IDF_T_OUTDVI(R8),R2 :GET ADDRESS OF OUTPUT DEVICE IDENTI 
BICW3 #FABSA PPF IND,- [GET INTERNAL FILE ID FOR OUTPUT FIL | 
IDF _W OUTIFI (RB) .R3 ALWAYS CLEAR INDIRECT BIT IF SET | 
MOVAB OUTPUTNAM,R GET ADDRESS OF OUTPUT LOGICAL NAME — 
MOVL § #LNMSM_TERMINAL,R6 ZASSUME NOT CONCEALED DEVICE 
BBC #IDF_VOUTCCL,- :SKIP IF NOT CONCEALED DEVICE 
IDF 6 _OUTFLAGS(R8) , CREATE : 
SETBIT LNMSV—CONCEALED,R6 SSET ATTRIBUTES 
: Re = ADDRESS OF ASCIC DEVICE NAME 
: R3 = IFI CORRESPONDING TO FILE 
: R5 = ADDRESS OF ASCIC LOGICAL NAME 
: R6 = EQUIVALENCE NAME ATTRIBUTES 
: CREATE EQUIVALENCE NAME STRING ON THE STACK. 
3; FORMAT IS <ESC-BYTE><00-BYTE><IF 1-WORD><DEVICE-STRING><:-BYTE>. 
CREATE: SUBL #¢ SP ZALLOCATE SPACE TO STORE DEVICE NAME | 
MOVZBL (R25+,RO [GET LENGTH OF DEVICE NAME 
PUSHR #*M<RO,R3,R5> [SAVE REGISTERS 
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yon 800 CREATE LOGICAL NAMES FOR ‘INPUT’ AND ‘OU pate} 90:28:53 YOCL SRC]SYSOUYPUT MAR: 1 7 | 
OC AE 63 0 38 MOVC —-RO, (R2) 13(SP) :COPY DEVICE IDENTIFICATION 
6 A § MOVE  #*h/:/,(¢R3) ‘APPEND THE : 
9 BA POPR #*M<RO-R3,R5> TRESTORE REGISTERS 
7E 8 A MOVZBL 7 =(§P) SINSERT ESCAPE AND TYPE ZERO 
02 AE 53 BO OVW  R3,2(SP) TINSERT INTERNAL FILE iNDEX 


: BUILD ITEM LIST CONTAINING EQUIVALENCE NAME AND ATTRIBUTES. 


36 D PUSHL R6 SET THE ATTRIBUTES 
E C CLRQ = (SP) TERMINATE THE ITEM LIST 
og ar oF PUSHAB 12(SP) SET ADDRESS OF EQUIV NAME 
A oF PUSHAB RO) SET LENGTH OF EQUIV NAME 
02 AE Oe BO MOVW #LNMS_STRING,2(SP) SET ITEM COD 
E 04 LRL =(SP) ; TERMINATE ATTRIBUTES ITEM 
14 AE OOF PUSHAB 20(SP) sSET ATTRI 
00030004 8F ODD PUSHL #LNMS_ATTRIBUTES@16+4 SET ITEM CODE AND LENGTH 


> PUSH NAME ATTRIBUTES AND ACCESS MODE, AND CREATE LOGICAL NAME AND TABLE 
; NAME DESCRIPTORS. 


0 DD PUSHL #LNMSM_CONF INE 7PUSH NAME ATTRIBUTES 
0 DD PUSHL #PSLSC” SUPER PUSH ACCESS MODE 
54 8 9A MOVZBL (n5)s ” ;BUILD LOGICAL NAME DESCRIPTOR 
7E 54 7D MOVa R4,- : 
55 FE26 CF 9E LNASPROCESS, RS ;BUILD TABLE NAME DESCRIPTOR 
54 85 9A MOVZBL (n5)¢ R4 3 
7E «54 ova 4,-(SP) : 
51 SE 00 MOVL gp RI SAVE ADDRESS OF DESCRIPTORS 


: PERFORM $CRELNM. 
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PPrPPrrr PY OMI SCF 999999 FP VL AM ONIN BO BP AWOMOOOOOOUWOW 


SINS D DD DDD DPD ITT Be Be BS BS BB BE NIN AI IItnonononun) 
WOO NIA AE WIN @§ OO NAN E WIN OOO NOA MEW SO ODA NEW O ODA UE WW OOONOUM 
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SCRELNM_S TABNAMS(R1) ,~ SCREATE THE LOGICAL NAME 
LOGNAM=8(R1),- : 
ACHOD EaTOCRIS 5 ; 
ATTR=20(R1),- : 
ITMLST=24(R1) : 
SE 0000004C BF CO ADDL #<4#14>4+20,SP [CLEAN STACK 
05 RSB ; 
: RS = ADDRESS OF ASCIC LOGICAL NAME 
; DELETE INPUT LOGICAL NAME. 
02 DD BELETE: PUSHL teSbtene SUPER :PUSH ACCESS MODE 
54 85 9A C MOVZBL TBUILD LOGICAL NAME DESCRIPTOR 
7E 54 7D F MOV = RG, = (SP ; 
55 FDF3 CE 9E : MOVAB tNAsPROCEsS, RS ‘BUILD TABLE NAME DESCRIPTOR 
54 5 9A MOVZBL (R5)¢ ; 
— 54 7D A mova R4, 1tEB) : 
51 SE 00 D SP, [SAVE ADDRESS OF DESCRIPTORS 
7 SDELLNM. A GUABNARE (RI) «= [DELETE THE LOGICAL NAME 
$0 AM=8(R1),- : 
1 LORODE= =16(R1S ; 
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SYSOUTPUT = ROUTINES FOR MANIPULATING SYSSOUTPUT i ak; Sat B+ 9 90:2 13 AX/VMS Macro v04-00 Page 13 
Psect synopsis 4-SEP-1984 243: DCL.SRCISYSOUTPUT .MAR; 1 (4) 


¢eewmetreweszeceronen + 


: ; Psect synopsis * ! 


PSECT name Allocation PSECT No. Attributes 
- ABS . 444d “¢ ( 0.) NOPIC USR CO ABS LCi NOSHR NOEXE NORD uovat NOVEC BYTE | 
SABSS 000534 ( 1338:) 84 ( -) NOPIC USR CON ABS LCL NOSHR EXE R&D T NOVEC BYTE 
DCLSZCODE 0000243 ¢ 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE’ RD NOURT NOVEC BYTE | 
Rome Tr SEEM OO Owe Ee mee wo | 
H Per formance indicators : 
Phase Page faults CPU Time Elapsed Time 
ey $ BRsapses-oy 8:89:08 | 
“Wee : 2% 00:00:10: 8 09:00:8 62 | 
Synbol table sort 7 5 Be: \° f 0: 3: 2°38 
eK, table output 20 :00:00.17 0:00:00-6 
Psect synopsis output 0:00: Be 0:00:00.0 
Cross-reference output 00:00:00.0 0:00:00.0 
Assembler run totals 46 00:00:15.00 0:00:54.04 


The working set Limit was 1350 pages. 

53942 bytes (106 pages) of virtual memory were used to buffer the tagorasdioce code. 

There were 50 pages of symbol table space allocated to hold 929 non-‘ocal ia 11 local symbols. 
source Lines were read in Pass 1, producing 14 object records in Pass 

44 pages of virtual memory were used to define 31 macros. 


Macro Library name Macros defined 
sso: DCL -OB49DCL MBE MLB; 1 0 
$255$DUA, BoC +s eed 9 
BSegeoua MLB; 1 2 
8 Sve tB It1B-ALE MLB;2 1 
vera (all Libraries) 24 


1158 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSOUTPUT/OBJ=0BJ$:SYSOUTPUT MSRC$:SYSOUTPUT/UPDATE=(ENHS: SYSOUTPUT) +EXECMLS$/LIB+LIB$:D0CL/LIB+SYSS$LIBRARY:SYSBLDOMLB/L | 
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